{
语法百题 解题报告：
 http://git.oschina.net/et0662/sznoi-grammar/ 
}
var
	a:array of integer;
	s,t,n,i:integer;
begin
	t:=0;
	readln(n);
	setlength(a,n);
	for i:=0 to n-1 do
		read(a[i]);
	read(s);
	for i:=0 to n-1 do
		if a[i]>s then inc(t);
	writeln(t+1);
end.
